SAP Business One DI API 10.0 - Objects Reference (10.00.320)

• Create Invoice with Down Payment

  • Tablelist
  • DI API
  • Service Layer

  • • Example

      Private Sub CreateInvoice()     Dim oInvoice As SAPbobsCOM.Documents     ' Add invoice     oInvoice = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)     oInvoice.CardCode = Card Code With DownPayment Invoice     oInvoice.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items     oInvoice.DocDate = Document Date     oInvoice.Lines.ItemCode = Some Item Code     oInvoice.Lines.Price = Item Price     oInvoice.Lines.Quantity = Quantity     oInvoice.Lines.TaxCode = Tax Code If needed     oInvoice.Lines.VatGroup = Vat Code If needed     ' Add the Invoice with Down Payment     Dim dpToDraw As SAPbobsCOM.DownPaymentsToDraw     dpToDraw = oInvoice.DownPaymentsToDraw     'oDPM is an object that contains an existing DownPayment Invoice     dpToDraw.AmountToDraw = oDPM.DownPaymentAmount     lRetCode = oInvoice.Add()     If lRetCode <> 0 Then             oCompany.GetLastError(lErrCode, sErrMsg)             MsgBox(lErrCode & " " & sErrMsg) ' Display error message     Else             MsgBox("Invoice with Downpayment created, the process of using a downpayment invoice succeeded", MsgBoxStyle.Information, "Invoice Paid")             cmdInv.Enabled = False      End If End Sub